<!--#INCLUDE FILE="conn.asp"-->
<!-- #include file="aFunction_charCode.asp" -->
<!-- #include file="ad_comSub.asp" -->

<%
Call tslt_useridentity12_error_end()
%>

<html>
<head>
<title></title>
<link href=../style/<%=session("tslt_stylefolder")%>/admin.css rel="stylesheet" type="text/css">
</head>
<body bgcolor=#aaaac4>
<br>
<CENTER>
<table><tr><td class="font2">õ¼</td></tr></table>
<br>
<table border=1 width=600 bgcolor=#dedfde cellpadding="15" cellspacing="15">
       <tr>
             <td align=center>
<%
              dim rs,spl
              dim LoginYes2,str1,str2
              sql="select * from option1"
              set rs=conn.execute(sql)
                    LoginYes2=rs("LoginYes")
                    if LoginYes2=true then
                         str1="checked"
                   else
                          str2="checked"
                   end if
             rs.close
             set rs=nothing
             if LoginYes2 then
                   Response.Write "<SCRIPT language=Javascript>passwords(promptInfo_OpenLogin(0))</SCRIPT>"
             else
                   Response.Write "<SCRIPT language=Javascript>passwords(promptInfo_OpenLogin(1))</SCRIPT>"
            end if
%>
            <br>
            <form method="post" action="" name="form1">
                  <input type="hidden" name="isok" value="ok">
                  <input type="radio" value="yes" name="ol" <%=str1%>> ¼
                  <input type="radio" value="no" name="ol" <%=str2%>> Ҫ¼
                  <br><br>
                  <p style='margin:8'><input type="submit" value="      " name="B1">
            </form>
            </td>
       </tr>
</table>
<br>

<%
dim sure
sure = Request.form("isok")
if sure = "ok" then
       call OpenLogin()
end if
%>

</CENTER>
</body>
</html>

<%
Call conn_Nothing()

sub OpenLogin()
       dim ol
       ol=request.form("ol")
       if ol="yes" then
               conn.execute("update option1 set LoginYes=true")
       else
               conn.execute("update option1 set LoginYes=false")
       end if
       Call infoDivShow("  óɹ  ")
       Response.write"<META HTTP-EQUIV='Refresh' content='3; URL=OpenLogin.asp'>"
end sub
%>


